#!/usr/bin/perl -w
use strict;
use Includes;
use CGI qw/:standard *table *div -nosticky/;
use CGI::Pretty qw/ :html3 /;

# Some variables
my $c = new CGI;

# Make the basic HTML and form 
print header(-type=>'text/html'),
			Includes::get_html("Send a message"),
			div({id=>'main',class=>'rounded'},
					Includes::get_banner(),
					&mail_form);
print end_html();

sub mail_form(){
	return div({id=>"form"},
			start_form({-action=>"sendmail.cgi"},"POST"),
			fieldset(
				legend("Enter Message Information"),
				p(textarea("body")),
				p({class=>'submit'},submit('action','Send'))
				),
			end_form());
}
